home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-09 / floppies.zip / FLOPPY.ZIP / ANSREPCL.SC < prev    next >
Text File  |  1992-03-14  |  1KB  |  55 lines
  1. ;------ANSREPCL.SC
  2. IF ISTABLE("ANSWER") = FALSE THEN
  3. CLEARALL
  4. CLEAR
  5. STYLE ATTRIBUTE 158
  6. @12,10
  7. ?? "YOU MUST FIRST RUN A QUERY BEFORE YOU CAN PRINT IT !!"
  8. SLEEP 5000
  9. PLAY "CALQ"
  10. ENDIF
  11. STYLE ATTRIBUTE 30
  12. @23,1 CLEAR EOL
  13. ?? "COPYING REPORTS FROM FLOPPIES TABLE TO ANSWER "
  14. MENU{TOOLS}{COPY}{JUSTFAMILY}{FLOPPIES}{ANSWER}{REPLACE}
  15. STYLE ATTRIBUTE 142
  16. @24,1 CLEAR EOL
  17. ?? "CHECKING PRINTER STATUS...."
  18. WHILE PRINTERSTATUS() = FALSE
  19.      BEEP BEEP
  20. CLEAR
  21. STYLE ATTRIBUTE 206
  22. @ 10,15
  23. TEXT
  24. YOUR PRINTER IS NOT READY !!!
  25. ENDTEXT
  26. ;-------------------SET UP MENU LOOP
  27. CHOICE = " "
  28. WHILE CHOICE <> "EXIT"
  29.       ;----------------SHOW OPTION MENU.
  30.       SHOWMENU
  31.           "CONTINUE" : "PREPARE PRINTER AND SELECT THIS",
  32.           "EXIT" : "RETURN TO MAIN MENU....."
  33.       TO CHOICE
  34.       ;------------------PLAY SCRIPT OF CHOICE.
  35.       SWITCH
  36.  
  37.          CASE CHOICE = "CONTINUE" :
  38.                         QUITLOOP
  39.          CASE CHOICE = "EXIT" :
  40.                         CLEAR
  41.                         STYLE REVERSE
  42.                         @ 12,24
  43.                         ?? "RETURNING TO QUERY MENU"
  44.                         PLAY "QUERFLOP"
  45.                         SLEEP 1000
  46.                         BEEP BEEP
  47.        ENDSWITCH
  48.     ENDWHILE
  49.  
  50. ENDWHILE
  51.  
  52.  
  53. menu{report}{output}{answer}{1}{printer}
  54. PLAY "QUERFLOP"
  55.